home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 March / 64er_Magazin_88-03_1988_Markt__Technik_de_Side_A.d64 / window listing 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  576b  |  23 lines
  1. 10000 m$(0)="menue 1
  2. 10010 m$(1)[178]"menue 2
  3. 10020 m$(2)="menue 3
  4. 10030 m$(3)[178]"menue 4
  5. 10040 m$(4)="menue 5
  6. 10100 ma[178]4:xp[178]15:yp[178]1:co[178]1:[141]31000
  7. 10200 [139]ze[179]0[167] [153]" abbruch":[137]11000
  8. 10300 [153]" menue nr."ze[170]1
  9. 11000 [128]
  10. 31000 mb[178]0:[129]t[178]0[164]ma:[139]mb[179][195](m$(t))[167]mb[178][195](m$(t))
  11. 31010 [130]:mb[178]mb[170]2
  12. 31020 _wxp,yp,mb,ma[172]2[170]3,1,1,0,co
  13. 31060 [129]t[178]0[164]ma:_p(mb[171][195](m$(t)))[173]2,t[172]2[170]1:[153]m$(t):[130]
  14. 31070 ze[178]0:[137]31190
  15. 31100 [161]a$:[139]a$[178]""[167]31100
  16. 31105 _p(mb[171][195](m$(ze)))[173]2,ze[172]2[170]1:[153]m$(ze)
  17. 31110 [139]a$[178]""[167]ze[178]ze[170]1:[139]ze[177]ma[167]ze[178]0
  18. 31120 [139]a$[178]"on"[176]a$[178]""[167]ze[178]ze[171]1:[139]ze[178][171]1[167]ze[178]ma
  19. 31130 [139]a$[178]"^"[167]ze[178][171]1:[137]31200
  20. 31140 [139]a$[178][199](13)[167]31200
  21. 31190 _p(mb[171][195](m$(ze)))[173]2,ze[172]2[170]1:[153]""m$(ze):[137]31100
  22. 31200 _w:[142]
  23.